home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / nekodemo / rtrv / rtrv0400 / 00001_1FrameScore.ls next >
Encoding:
Text File  |  1995-05-31  |  2.9 KB  |  15 lines
  1. on exitFrame
  2.   global gtpoem, gppoem, gtbio, gpbio, gcurrentnumber, gbiophotonumber, greq, gblend.45, gblend.46, gblend.47, greturn
  3.   set gtpoem to [[["RYOKN00O", EMPTY], ["RYOKN00E", EMPTY], ["RYOKN00J", EMPTY], ["RYOKN00Z", 120], EMPTY], [["RYOKN01O", EMPTY], ["RYOKN01E", EMPTY], ["RYOKN01J", EMPTY], ["RYOKN01Z", 120], EMPTY], [["RYOKN02O", EMPTY], ["RYOKN02E", EMPTY], ["RYOKN02J", EMPTY], ["RYOKN02Z", 120], EMPTY], [["RYOKN03O", EMPTY], ["RYOKN03E", EMPTY], ["RYOKN03J", EMPTY], ["RYOKN03Z", 120], EMPTY], [["RYOKN04O", EMPTY], ["RYOKN04E", EMPTY], ["RYOKN04J", EMPTY], ["RYOKN04Z", 120], EMPTY], [["RYOKN05O", EMPTY], ["RYOKN05E", EMPTY], ["RYOKN05J", EMPTY], ["RYOKN05Z", 120], EMPTY], [["RYOKN06O", EMPTY], ["RYOKN06E", EMPTY], ["RYOKN06J", EMPTY], ["RYOKN06Z", 120], ["RYOKN06Y", 260]], [["RYOKN07O", EMPTY], ["RYOKN07E", EMPTY], ["RYOKN07J", EMPTY], ["RYOKN07Z", 120], EMPTY], [["RYOKN08O", EMPTY], ["RYOKN08E", EMPTY], ["RYOKN08J", EMPTY], ["RYOKN08Z", 120], EMPTY], [["RYOKN09O", EMPTY], ["RYOKN09E", EMPTY], ["RYOKN09J", EMPTY], ["RYOKN09Z", 120], ["RYOKN09Y", 260]], [["RYOKN10O", EMPTY], ["RYOKN10E", EMPTY], ["RYOKN10J", EMPTY], ["RYOKN10Z", 120], ["RYOKN10Y", 260]]]
  4.   set gppoem to [EMPTY, EMPTY, EMPTY, [["42", "SHL", 460, 240, "42J", 460, 440, "42E", 460, 440]], EMPTY, EMPTY, [["41", "SHL", 460, 240, "41J", 460, 440, "41E", 460, 440]], EMPTY, [["35", "SHL", 460, 240, "35J", 460, 440, "35E", 460, 440], ["38", "SHL", 460, 240, "38J", 460, 440, "38E", 460, 440]], EMPTY, [["44", "SHL", 460, 240, "44J", 460, 440, "44E", 460, 440], ["32", "SHL", 460, 240, "32J", 460, 440, "32E", 460, 440]]]
  5.   set gtbio to [[1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "04a"], [1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "CUT07"], [1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "CUT07"], [1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "CUT07"], [1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "CUT15"], [1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "CUT15"], [1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "CUT07"], [1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "CUT07"], [1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "CUT07"], [1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "CUT07"], [1, "RYOKNNAM", "RYOKNNAE", "RYOKNBIJ", "RYOKNBIE", "CUT07"]]
  6.   set gpbio to [[["57", "SHS", 460, 255, "57J", 460, 440, "57E", 460, 440], ["130", "SHM", 460, 255, "130J", 460, 440, "130E", 460, 440], ["37", "SHM", 460, 255, "37J", 460, 440, "37E", 460, 440], ["27", "SHL", 460, 240, "27J", 460, 400, "27E", 460, 400], ["43", "SHL", 460, 240, "43J", 460, 400, "43E", 460, 400], ["39", "SHL", 460, 240, "39J", 460, 400, "39E", 460, 400], ["17", "SHL", 460, 240, "17J", 460, 400, "17E", 460, 400]], EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY]
  7.   set gcurrentnumber to 0
  8.   set gbiophotonumber to 0
  9.   set greq to "J"
  10.   set gblend.45 to 100
  11.   set gblend.46 to 100
  12.   set gblend.47 to 100
  13.   set greturn to "@::PCBK:04YONONK"
  14. end
  15.